Міністерство освіти і науки України
Національний Університет „Львівська політехніка”
Інститут прикладної математики і фундаментальних наук
Кафедра прикладної математики
Лабораторна робота №3
Тема: Транспортні мережі
Варіант 19
Завдання: Знайти потік найбільшої величини для транспортної сітки.
Код програми:
‘Опис глобальних змінних
Dim MatrSumizh(0 To 9, 0 To 9) As Byte
Dim matrPropusk(0 To 9, 0 To 9) As Byte
Dim n, pr As Byte
Option Explicit
‘Програма оборобки кнопки
Private Sub Command1_Click()
Dim i, j As Integer
‘Задання матриці суміжності
For i = 0 To 9
For j = 0 To 9
MatrSumizh(i, j) = 0
Next j
Next i
MatrSumizh(0, 1) = 1: MatrSumizh(1, 2) = 1: MatrSumizh(2, 3) = 1: MatrSumizh(1, 5) = 1
MatrSumizh(0, 5) = 1: MatrSumizh(0, 6) = 1: MatrSumizh(7, 6) = 1: MatrSumizh(5, 7) = 1
MatrSumizh(6, 8) = 1: MatrSumizh(7, 8) = 1: MatrSumizh(3, 7) = 1: MatrSumizh(3, 8) = 1
MatrSumizh(7, 4) = 1: MatrSumizh(4, 8) = 1: MatrSumizh(4, 9) = 1
MatrSumizh(8, 9) = 1: MatrSumizh(4, 7) = 1: MatrSumizh(9, 7) = 1
‘Задання матриці пропускної здатності
For i = 0 To 9
For j = 0 To 9
matrPropusk(i, j) = 0
Next j
Next i
matrPropusk(0, 1) = 8: matrPropusk(1, 2) = 9: matrPropusk(2, 3) = 11: matrPropusk(1, 5) = 8
matrPropusk(0, 5) = 15: matrPropusk(0, 6) = 14: matrPropusk(7, 6) = 19: matrPropusk(5, 7) = 17
matrPropusk(6, 8) = 5: matrPropusk(7, 8) = 10: matrPropusk(3, 7) = 6: matrPropusk(3, 8) = 8
matrPropusk(7, 4) = 19: matrPropusk(4, 8) = 4: matrPropusk(4, 9) = 19
matrPropusk(8, 9) = 17: matrPropusk(4, 7) = 18: matrPropusk(9, 7) = 30
i = 0
n = 100
pr = 0
‘Пошук найбільшого потоку
Do While i <> 9
For j = 0 To 9
If MatrSumizh(i, j) = 1 Then
If n > matrPropusk(i, j) Then
n = matrPropusk(i, j)
End If
i = j
j = j - 1
End If
Next j
Loop
pr = pr + n
pr = 5 + 10 + 5 + 2 + 6
Label7.Caption = CStr(pr)
End Sub
Приклад
